home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2005 October / PCWOCT05.iso / Software / FromTheMag / The GIMP 2.2.8 / gimp-2.2.8-i586-setup.exe / {app} / share / gimp / 2.0 / scripts / old-photo.scm < prev    next >
Encoding:
GIMP Script-Fu Script  |  2005-06-30  |  3.4 KB  |  103 lines
  1. ;
  2. ; old-photo
  3. ;
  4. ;
  5. ; Chris Gutteridge (cjg@ecs.soton.ac.uk)
  6. ; At ECS Dept, University of Southampton, England.
  7.  
  8. ; This program is free software; you can redistribute it and/or modify
  9. ; it under the terms of the GNU General Public License as published by
  10. ; the Free Software Foundation; either version 2 of the License, or
  11. ; (at your option) any later version.
  12. ; 
  13. ; This program is distributed in the hope that it will be useful,
  14. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  15. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16. ; GNU General Public License for more details.
  17. ; 
  18. ; You should have received a copy of the GNU General Public License
  19. ; along with this program; if not, write to the Free Software
  20. ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  21. ;
  22. ; Branko Collin <collin@xs4all.nl> added the possibility to change
  23. ; the border size in October 2001.
  24.  
  25. ; Define the function:
  26.  
  27. (define (script-fu-old-photo inImage inLayer inDefocus inBorderSize inSepia inMottle inCopy)
  28.   (gimp-image-undo-group-start inImage)
  29.   (gimp-selection-all inImage)
  30.   (set! theImage (if (= inCopy TRUE)
  31.              (car (gimp-image-duplicate inImage))
  32.              inImage)
  33.         )
  34.   
  35.   (set! theLayer (car (gimp-image-flatten theImage)))
  36.   (if (= inDefocus TRUE)
  37.       (plug-in-gauss-rle TRUE theImage theLayer 1.5 TRUE TRUE)
  38.       ()
  39.       )
  40.   (if (> inBorderSize 0)
  41.       (script-fu-fuzzy-border theImage theLayer '(255 255 255)
  42.                   inBorderSize TRUE 8 FALSE 100 FALSE TRUE )
  43.       ()
  44.       )
  45.   (set! theLayer (car (gimp-image-flatten theImage)))
  46.   
  47.   (if (= inSepia TRUE)
  48.       (begin (gimp-desaturate theLayer)
  49.          (gimp-brightness-contrast theLayer -20 -40)
  50.          (gimp-color-balance theLayer 0 TRUE 30 0 -30)
  51.          )
  52.       ()
  53.       )
  54.   (set! theWidth (car (gimp-image-width theImage)))
  55.   (set! theHeight (car (gimp-image-height theImage)))
  56.   (if (= inMottle TRUE)
  57.       (begin (set! mLayer (car (gimp-layer-new theImage theWidth theHeight RGBA-IMAGE "Mottle" 100 DARKEN-ONLY-MODE)))
  58.          
  59.          (gimp-image-add-layer theImage mLayer 0)
  60.          (gimp-selection-all theImage)
  61.          (gimp-edit-clear mLayer)
  62.          (gimp-selection-none theImage)
  63.          (plug-in-noisify TRUE theImage mLayer TRUE 0 0 0 0.5)
  64.          (plug-in-gauss-rle TRUE theImage mLayer 5 TRUE TRUE)
  65.          (set! theLayer (car (gimp-image-flatten theImage)))
  66.          )
  67.       ()
  68.       )
  69.   
  70.   
  71.   
  72.   (if     (= inCopy TRUE)
  73.       (begin  (gimp-image-clean-all theImage)
  74.           (gimp-display-new theImage)
  75.           )
  76.       ()
  77.       )
  78.   (gimp-selection-none inImage)
  79.   (gimp-image-undo-group-end inImage)
  80.   (gimp-displays-flush theImage)
  81.   )
  82.  
  83. (script-fu-register "script-fu-old-photo"
  84.             _"_Old Photo..."
  85.             "Makes the image look like an old photo. A border size of 0 means no border."
  86.             "Chris Gutteridge"
  87.             "1998, Chris Gutteridge / ECS dept, University of Southampton, England."
  88.             "16th April 1998"
  89.             "RGB* GRAY*"
  90.             SF-IMAGE      "The image"     0
  91.             SF-DRAWABLE   "The layer"     0
  92.             SF-TOGGLE     _"Defocus"      TRUE
  93.             SF-ADJUSTMENT _"Border size"  '(20 0 300 1 10 0 1)
  94.             ; since this plug-in uses the fuzzy-border plug-in, I used the
  95.             ; values of the latter, with the exception of the initial value
  96.             ; and the 'minimum' value.
  97.             SF-TOGGLE     _"Sepia"        TRUE
  98.             SF-TOGGLE     _"Mottle"       FALSE
  99.             SF-TOGGLE     _"Work on copy" TRUE)
  100.  
  101. (script-fu-menu-register "script-fu-old-photo"
  102.              _"<Image>/Script-Fu/Decor")
  103.